0 PRINT"[147]" 1 GOTO 90 39 REM ** DATA ** 40 REM *STUECKE 1&2* 41 DATA9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,30,243,31 42 DATA0,0,0,58,0,0,69,7,81,58,6,133,78,7,81,58,0,0,87,6,133,58,0,0,78,7,81,58 43 DATA0,0,69,0,0,0,0,0,58,6,133,0,0,0,58,6,133,0,7,81,0,0,0,58,0,0,69,8,180,58 44 DATA8,55,78,8,180,58,0,0,87,8,180,58,0,0,78,5,207,58,0,0,69,5,207,0,0,0,65,6 45 DATA133,0,0,0,58,6,133,0,0,0 46 REM *PADDLES* 47 DATA120,169,128,32,236,207,142,60,3,140,61,3,173,0,220,41,12,141,159,2,169 48 DATA64,32,236,207,142,62,3,140,63,3,173,1,220,41,12,141,160,2,169,255,141 49 DATA2,220,88,96,141,0,220,9,192,141,2,220,162,0,202,208,253,174,25,212,172 50 DATA 26,212,96 51 REM *SOUND3* 52 DATA17,103,2,21,237,2,25,100,4,25,100,1,23,59,1,21,237,1,19,137,1,17,103,4 53 DATA19,137,1,19,137,1,16,109,1,13,10,1,25,100,1,25,100,1,21,237,1 54 DATA17,103,1,19,137,1,19,137,1,16,109,1,13,10,1,25,100,1 55 DATA25,100,1,21,237,1,17,103,1,17,103,1,19,137,1,21,237,1 56 DATA23,59,1,25,100,4,25,100,1,23,59,1,21,237,1,19,137,1,17,103,4,-1,-1,0 90 GOSUB60001:REM VARIABELDEF. 100 GOSUB50210:REM ABRUFBEISPIEL 49998 END 49999 REM ****SOUNDSTUECKE**** 50000 REM *PUPPE* 50001 POKESI+24,15:POKESI+3,15:POKESI+2,15:POKESI+5,0*16+0:POKESI+6,15*16 50002 POKESI+4,65 50003 FORI=250TO0STEP-2:POKESI+1,40:POKESI,I:NEXTI 50004 FORI=150TO0STEP-4:POKESI+1,40:POKESI,I:NEXTI:POKESI+4,0:RETURN 50005 REM *GEWEHRSCHUSS* 50010 FORI=0TO24:POKESI+I,0:NEXT 50011 FORI=15TO0STEP-1:POKESI+24,I:POKESI+5,15:POKESI+6,0:POKESI+1,40 50012 POKESI,200:POKESI+4,129:NEXTI:POKESI+4,0:POKESI+5,0:RETURN 50014 REM *MOTOREN S(24,1)* 50015 FORI=1TO24:POKESI+I,S1(I):NEXT 50016 POKESI+4,65:POKESI+11,65:POKESI+18,65:RETURN 50017 REM *DROEHNEN S(24,1)* 50020 FORI=1TO24:POKESI+I,S1(I):NEXT 50021 POKESI+4,0:POKESI+65,77:POKESI+18,65:RETURN 50023 REM *RAUSCHLEITER* 50025 FORI=1TO24:POKESI+I,0:NEXT 50026 POKESI+24,2:POKESI+6,255:POKESI+4,129:POKESI+13,255:POKESI+11,129 50027 FORI=1TO50:POKESI+1,5:POKESI+1,80-I:FORU=1TO60:REM BEI 60 EV. TIMECHANGE 50028 NEXTU,I:POKESI+5,10:POKESI+6,0:RETURN 50029 REM *EXPLOSION* 50030 FORI=1TO24:POKESI+I,0:NEXT 50031 POKESI+24,2:POKESI+6,255:POKESI+4,129:POKESI+13,255:POKESI+11,129 50032 POKESI+1,0:POKESI+5,0:POKESI+24,15:POKESI+1,1:POKESI+5,11:POKESI+6,0 50033 FORI=1TO150:NEXT:POKESI+12,9:POKESI+13,0:POKESI+19,10:POKESI+18,129:RETURN 50035 FORI=1TO24:POKESI+I,0:NEXT 50036 POKESI+24,2:POKESI+6,255:POKESI+4,129:POKESI+13,255:POKESI+11,129 50037 POKESI+1,0:POKESI+5,0:POKESI+24,15:POKESI+1,1:POKESI+5,11:POKESI+6,0 50038 FORI=1TO150:NEXT:POKESI+12,9:POKESI+13,0:POKESI+19,10:POKESI+18,129 50039 FORW=1TO80:NEXTW:A=30 50040 FORU=1TO16:FORI=1TO40:NEXTI:POKESI+15,5:POKESI+8,A 50041 FORW=1TO80:NEXTW 50042 POKESI+15,3:POKESI+8,A+20:A=A-1:NEXTU:POKESI+4,0:POKESI+11,0:POKESI+18,0 50043 FORI=1TO300:NEXT:RETURN 50044 REM *SOUNDDEMO* 50045 FORI=2TO23:POKESI+I,0:NEXT 50046 POKESI+24,15:POKESI+1,1:POKESI+5,11 50047 POKESI+19,10:POKESI+4,17:POKESI+20,255:POKESI+18,33:POKESI+12,8:POKESI+13,0 50048 FORU=1TO4:FORI=0TO95STEP3 50049 POKESI+8,S2(I+1):POKESI+7,S2(I+2) 50050 POKESI+11,33 50051 IFS2(I)=0THENW=0:GOTO50053 50052 W=1 50053 IFU>2THENPOKESI+1,S2(I):POKESI+15,S2(I)+W:B=28:GOTO50055 50054 FORC=1TO30:NEXTC 50055 REM HIER EV. EINLAGE BSPW. PRINT XX 50056 FORA=1TOB:NEXTA:POKESI+11,0:NEXTI,U:FORI=1TO50:NEXTI:RETURN 50059 REM**TROMMEL** 50060 FORI=1TO24:POKESI+I,0:NEXTI 50061 POKESI+24,15:POKESI+6,240:POKESI,130:POKESI+5,110:POKESI+23,240:POKESI+4,33 50062 RETURN 50064 REM**RAUSCHEN 2** 50065 FORI=0TO24:POKESI+I,0:NEXTI 50066 POKESI+24,15:POKESI+6,240:POKESI,180:POKESI+5,8:POKESI+23,240:POKESI+4,129 50067 RETURN 50069 REM**SCHLAEGE SCHNELL** 50070 FORI=0TO24:POKESI+I,0:NEXTI 50071 POKESI+24,15:POKESI+6,240:POKESI,180:POKESI+5,8:POKESI+23,240:POKESI+4,33 50072 RETURN 50074 REM**VORBEIRAUSCHEN** 50075 FORI=0TO24:POKESI+I,0:NEXT 50076 POKE54296,15:POKESI+1,30:POKE54280,1:POKE54287,100:POKE54277,16*15+0 50077 POKESI+6,16*8+13:POKESI+4,129:POKE54290,23 50078 FORI=0TO8000:NEXT:POKESI+4,128:POKE54290,16:RETURN 50079 REM*FLIPPER 1* 50080 POKESI+24,15:POKESI+6,240:POKESI+23,240 50081 FORI=65535TO4000STEP-3000 50082 FH(1)=INT(I/256):FL(1)=I-256*FH(1) 50083 POKESI,FL(1):POKESI+1,FH(1):POKESI+4,33 50084 NEXT:POKESI+4,0:POKESI+11,0:RETURN 50089 REM*FLIPPER 2* 50090 FORI=0TO24:POKESI-I,0:NEXT 50091 POKESI+24,15:POKESI+6,240:POKESI+23,240:POKESI+4,33 50092 FORI=0TO65535STEP3000 50093 FH=INT(I/256):FL=I-256*FH 50094 POKESI,FL:POKESI+1,FH 50095 NEXT:POKESI+4,0:RETURN 50099 REM*TUT-SIGNALE* 50100 FORI=0TO24:POKESI+I,0:NEXT 50101 FORI=1TO3 50102 POKESI+24,15:POKESI+6,240:POKESI,98:POKESI+1,10:POKESI+4,33 50103 FORII=1TO250:NEXTII:POKESI+4,0:NEXTI:POKESI+4,0 50104 FORI=1TO2 50105 POKESI+24,10:POKESI+6,240:POKESI,27:POKESI+1,4:POKESI+4,33 50106 FORII=1TO375:NEXT:POKESI+4,0:NEXT:POKESI+4,0 50107 RETURN 50109 REM*FLIPPER 3* 50110 FORI=1TO24:POKESI+I,0:NEXT 50111 POKESI+3,13:POKESI+2,15 50112 POKESI+5,3*16+15:POKESI+6,9 50113 FORI=15TO0STEP-1 50114 POKESI+24,I 50115 FORII=200TO100STEP-5 50116 POKESI+1,II:POKESI+2,II 50117 POKESI+4,65 50118 NEXTII,I 50119 POKESI+4,0 50120 RETURN 50124 REM**PFEIFLEITER** 50125 FORI=0TO23:POKESI+I,0:NEXTI 50126 POKESI+3,13:POKESI+2,15 50127 POKESI+5,3*16+15:POKESI+6,9 50128 POKESI+24,15 50129 POKESI+1,255-B:POKESI,B 50130 POKESI+4,65 50131 B=B+2 50132 IFB>200THENPOKESI+4,0:RETURN 50133 GOTO50129 50134 REM*FLIPPER 4* 50135 FORI=0TO23:POKESI+I,0:NEXTI 50136 POKESI+3,13:POKESI+2,15 50137 POKESI+5,3*16+15:POKESI+6,9 50138 POKESI+24,15:FORI=1TO10:FORX=200TO100STEP-10. 50139 POKESI+1,250-X:POKESI,X 50140 POKESI+4,65 50141 NEXTX,I:POKESI+4,0:RETURN 50144 REM*AKUSTIKKURVE* 50145 FORI=0TO24:POKESI+I,0:NEXT 50146 POKE54296,15 50147 POKESI+6,240:POKESI+4,17:A=-2:B=183:C=100:POKESI+4,33 50148 FORU=10TO100STEP10:A=A+2:B=B-3:IFU=20THENA=60 50149 FORI=ATOBSTEPU/10:POKESI+1,I/4:POKESI+1,I/3:POKESI+1,I/6:NEXTI 50150 FORI=BTOCSTEP-1.3:POKESI+1,INT(I/4):POKESI+1,INT(I/3):POKESI+1,INT(I/6):NEXTI 50151 FORI=CTOBSTEPU/10:POKESI+1,I/4:POKESI+1,I/3:POKESI+1,I/6:NEXTI 50152 FORI=BTOASTEP-U/10:POKESI+1,I/4:POKESI+1,I/3:POKESI+1,I/6:NEXTI,U:POKESI+1,0:RETURN 50154 REM *FALLENDES OBJEKT* 50155 FORI=0TO24:POKESI+I,0:NEXT 50156 POKESI+24,15:POKESI+6,15*16 50157 FORI=80TO10STEP-1:POKESI+1,I:POKESI+4,17 50158 FORU=0TO10:NEXTU,I:POKESI+24,0:RETURN 50159 REM*FEHLSCHLAG* 50160 FORI=0TO24:POKESI+I,0:NEXT:L=15 50161 FORI=60TO48STEP-2:POKESI+24,L:POKESI+6,15*16:POKESI+1,I:POKESI+4,17 50162 FORU=0TO100:NEXTU:L=L-1:NEXTI:POKESI+24,0:RETURN 50164 REM*GEFAHR/ALARM* 50165 FORI=0TO24:POKESI+I,0:NEXTI 50166 FORI=1TO5:L=10:FORU=70TO100STEP2:POKESI+24,L:POKESI+6,15*16:POKESI+1,U 50167 POKESI+4,33:L=L+1:IFL>15THENL=15 50168 NEXTU,I:POKESI+24,0:RETURN 50169 REM*ALARM+TAKT* 50170 FORI=0TO24:POKESI+I,0:NEXTI:U=0 50171 POKESI+7,9:POKESI+10,3:POKESI+13,240:POKESI+22,30:POKESI+23,243 50172 POKESI+24,31:POKESI+11,65:POKESI+1,140:POKESI+2,2:POKESI+3,2 50173 POKESI+5,5:POKESI+6,255:POKESI+4,65 50174 FORI=30TO120STEP6:POKESI+1,I:NEXTI 50175 U=U+1:IFU>8THENRETURN 50176 FORI=120TO20STEP-6:POKESI+1,I:NEXTI:GOTO50174 50179 REM*SOUND3* 50180 FORI=0TO24:POKESI+I,0:NEXTI 50181 POKESI+24,15:POKESI+3,13:POKESI+2,15:POKESI+5,15+3*16:POKESI+6,9:U=0 50182 IFS3(U,1)=-1THENRETURN 50183 POKESI+1,S3(U,1)/2:POKESI,S3(U,2)/2:POKESI+4,33 50184 FORI=1TOS3(U,3)*230:NEXTI:POKESI+4,0:U=U+1:GOTO50182 50189 REM*SIEG* 50190 FORI=0TO23:POKESI+I,0:NEXTI 50191 POKESI+24,15:POKESI+5,21:POKESI+12,21:POKESI+6,0:POKESI+13,0 50192 FORI=100TO10STEP-10:FORU=255TO0STEP-10 50193 POKESI+4,0:POKESI+11,0:POKESI+1,I:POKESI,U:POKESI+7,2*I:POKESI+8,U 50194 POKESI+4,17:POKESI+11,33:NEXTU,I:RETURN 50199 REM*AKKORD1* 50200 POKESI+4,0:POKES2+4,0:POKES3+4,0 50201 POKESI+5,16*0+1:POKESI+6,16*13+10 50202 POKES2+5,16*0+1:POKES2+6,16*13+10 50203 POKES3+5,16*0+1:POKES3+6,16*13+10 50204 POKESI+23,0:POKESI+24,15:POKESI,37:POKESI+1,15:POKES2,154:POKES2+1,21:POKES3,177 50205 POKES3+1,25:POKESI+4,33:FORI=0TO400:NEXT:POKES2+4,33:FORI=0TO400:NEXT:POKES3+4,33 50206 FORI=0TO500:NEXT:POKES1+4,32:POKES2+4,32:POKES3+4,32:POKESI+22,4:POKESI+21,226 50207 POKESI+4,0:RETURN 50209 REM*AKKORD2* 50210 POKESI+4,0:POKES2+4,0:POKES3+4,0 50211 POKESI+5,16*0+2:POKESI+6,16*15+12 50212 POKES2+5,16*0+2:POKES2+6,16*15+12 50213 POKES3+5,16*0+2:POKES3+6,16*15+12 50214 POKESI+23,0:POKESI+24,15:POKESI,38:POKESI+1,15:POKES2,154:POKES2+1,21:POKES3,177 50215 POKES3+1,25:POKESI+4,33:FORI=0TO600:NEXT:POKES2+4,33:FORI=0TO600:NEXT:POKES3+4,33 50216 FORI=0TO500:NEXT:POKES1+4,32:POKES2+4,32:POKES3+4,32:POKESI+22,4:POKESI+21,226 50217 POKESI+4,0:RETURN 60000 REM --VARIABELN FESTLEGEN-- 60001 V=53248:SI=54272:S2=54279:S3=54286 60002 DIMS1(24):DIMS2(96):DIMS3(39,3):REM STUECKE _2 60003 FORI=0TO24:READS1(I):NEXTI 60004 FORI=0TO95:READS2(I):NEXTI:U=0 60005 FORI=53182TO53247:READA:POKEI,A:NEXTI:REM PADDLES MASCH. 60007 READS3(U,1):READS3(U,2):READS3(U,3):IFS3(U,1)<>-1THENU=U+1:GOTO60007 60498 RETURN 60499 REM*** VERZOEGERUNG *** 60500 FORI=1TO2000:NEXT:RETURN 60600 POKE53280,0:POKE53281,0 60601 PRINT"[147][158] " 60602 PRINT" GAME OVER " 60603 PRINT" " 60604 PRINT"NOCH EIN SPIEL (J/N) " 60605 GETAA$:IFAA$="J"THENPRINT"[147]":RETURN 60606 IFAA$="N"THENPRINT"BIS ZUM NAECHSTEN MAL !":END 60607 GOTO60605 63000 REM ANLEITUNG SPAETER LOESCHEN 63001 REM ***** ANLEITUNG ************* 63002 REM * -PADDLES MASCH. PROGRAMM: * 63003 REM * ZEILEN:91,46,47-50 * 63004 REM * ABFRAGE: PORT1 * 63005 REM * PEEK(830) : PADDLE 1 * 63006 REM * PEEK(831) : PADDLE 2 255)* 63007 REM * PEEK(672) : TASTEN(12,8,4)* 63008 REM * ABFRAGE: PORT2 * 63009 REM * PEEK(828) : PADDLE 1 * 63010 REM * PEEK(829) : PADDLE 2 * 63011 REM * PEEK(830) : TASTEN(12,8,4)* 63012 REM * -JOYSTICK-PORT 1 * 63013 REM * IF(PEEK(56320)AND1)=0 : * 63014 REM * OBEN * 63015 REM * IF(PEEK(56320)AND2)=0 : * 63016 REM * UNTEN * 63017 REM * IF(PEEK(56320)AND4)=0 : * 63018 REM * LINKS * 63019 REM * IF(PEEK(56320)AND8)=0 : * 63020 REM * RECHTS * 63021 REM * IF(PEEK(56320)AND16)=0: * 63022 REM * KNOPF * 63023 REM * PORT 2 56321_56320 * 63024 REM ***************************** 63054 REM ***************************** 63055 REM * BEFEHLE/ROUTINEN * 63056 REM *---------------------------* 63057 REM * WAIT198,1 : WARTET AUF * 63058 REM * TASTENDRUCK * 63059 REM * PEEK(197) : ERGIBT KODE * 63060 REM * PEEK(203) : DER GERADE * 63061 REM * GEDRUECKTEN * 63062 REM * TASTE * 63063 REM *****************************